home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Co-Cz / Console.cpt / TTY Console / card_2971.txt < prev    next >
Text File  |  1989-10-31  |  4KB  |  169 lines
  1. -- card: 2971 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2754
  5. -- name: Console
  6. ----- HyperTalk script -----
  7. on returnKey
  8.   global thePort
  9.   sendData thePort, message box & return
  10.   put empty into msg
  11. end returnKey
  12.  
  13. -- ‚Äî‚Äî‚Äî‚Äî‚Äî‚Äî‚Äî‚Äî‚Äî‚Äî‚Äî‚Äî‚Äî
  14. on idle
  15.   global thePort
  16.   repeat while the number of lines of cd field "console" > 20
  17.     delete line 1 of cd field "console"
  18.   end repeat
  19.   put getBuffer(thePort) after cd field "console"
  20. end idle
  21.  
  22.  
  23. -- part 1 (field)
  24. -- low flags: 01
  25. -- high flags: 0002
  26. -- rect: left=13 top=33 right=287 bottom=502
  27. -- title width / last selected line: 0
  28. -- icon id / first selected line: 0 / 0
  29. -- text alignment: 0
  30. -- font id: 4
  31. -- text size: 9
  32. -- style flags: 0
  33. -- line height: 12
  34. -- part name: console
  35.  
  36.  
  37. -- part 3 (button)
  38. -- low flags: 00
  39. -- high flags: A002
  40. -- rect: left=12 top=7 right=29 bottom=112
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Settings...
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   go to cd "Settings"
  52.   hide the message box
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 4 (button)
  58. -- low flags: 00
  59. -- high flags: A002
  60. -- rect: left=117 top=7 right=29 bottom=225
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Kermit Send...
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   global thePort
  72.   kermit "send", thePort
  73.   if the result contains "Kermit error" then
  74.     put the result into theErr
  75.     delete word 1 to 2 of theErr
  76.     answer theErr
  77.   else
  78.     answer "Sent file" && the result
  79.   end if
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 5 (button)
  85. -- low flags: 00
  86. -- high flags: A002
  87. -- rect: left=228 top=7 right=29 bottom=352
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Kermit Receive...
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   global thePort
  99.   kermit "receive", thePort
  100.   if the result contains "Kermit error" then
  101.     put the result into theErr
  102.     delete word 1 to 2 of theErr
  103.     answer theErr
  104.   else
  105.     answer "Received file" && the result
  106.   end if
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 6 (button)
  112. -- low flags: 00
  113. -- high flags: A002
  114. -- rect: left=409 top=7 right=29 bottom=445
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: +++
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   global thePort
  126.   sendAttn thePort
  127.   if the result contains "error" then answer the result
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 7 (button)
  133. -- low flags: 00
  134. -- high flags: A002
  135. -- rect: left=358 top=7 right=29 bottom=406
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Help
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   go to cd "Console Help"
  147.   hide the message box
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 8 (button)
  153. -- low flags: 00
  154. -- high flags: A002
  155. -- rect: left=451 top=7 right=29 bottom=501
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Quit
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   doMenu "Quit HyperCard"
  167. end mouseUp
  168.  
  169.